home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Dev / basic / blitzgtfix.lha / BlitzGTFix / BBGTLib_Examples / gtcycle.bb2 < prev    next >
Text File  |  2002-01-27  |  750b  |  37 lines
  1. WbToScreen 3
  2. Use Screen 3
  3.  
  4. LoadFont 2,"garnet.font",9
  5. Use IntuiFont 2
  6.  
  7.  
  8. ; DONT USE COMMANDS WHICH USE A3 AS A PARAMETER DIRECTLY WITH HEX$
  9. ; COS IT GOES SCREWY
  10.  
  11.  
  12. foo.l=GTCycle(0,1,20,20,150,15,"Normal",#PLACETEXT_RIGHT,"foo|bar|snafu")
  13. NPrint Hex$(foo)
  14.  
  15. foo.l=GTCycle(0,2,20,40,150,15,"Active",#PLACETEXT_RIGHT,"foo|bar|snafu",1)
  16. NPrint Hex$(foo)
  17.  
  18. foo.l=GTCycle(0,3,20,60,150,15,"Disabled",#PLACETEXT_RIGHT|$40,"foo|bar|snafu")
  19. NPrint Hex$(foo)
  20.  
  21. AddIDCMP #CYCLEIDCMP
  22.  
  23. Window 0,0,0,400,300,$100f,"jjlk",-1,-1
  24. DefaultOutput
  25.  
  26. AttachGTList 0,0
  27. While ev.l<>#IDCMP_CLOSEWINDOW
  28.     ev.l=WaitEvent
  29.     Select ev
  30.         Case #IDCMP_GADGETUP
  31.             NPrint "Cycle gadget ",GadgetHit," changed to option ",EventCode
  32.     End Select
  33. Wend
  34. DetachGTList 0
  35. End
  36.  
  37.